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EH ; Detailed Current Edit History 
DECLARATIONS 

MTHSDINT Double to soyete truncation 
MTHSDINT_RG JSB entry point 


= FLOATING TRUNCATION -s  * SEP-1984 £9: yi 73 mows Macro V04-00 Page 


SSSSSSSSSSSsssss 


Soooooooooooo 


OOOCCCOCCOCOCCCOCOCOSOCOoOOooOoOooOoOO 
ot a 


Sooooooooooo 
MEW OS ODNAUE WIM $$ O OD NA UNE WIN OC OD NOU EWS OOODNOUE Ur 


SOooooooooooSo 


COoOoOoooooooocoo 
SOoOoOooooooocooao 
oOOooooooooooocoo 


4 
& 
& 
4 
4 
4 


=SEP-1984 


“TRTLs minseiut - FLOATING TRUNCATION 
; File: MTHDINT.MAR Edit: JBS1005 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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s FACILITY: MATH LIBRARY 
; : "ABSTRACT: 
This module contains routine MTHSDINT: 
Return truncated double-precision argument. 
; VERSION: 0 
; ; HISTORY: 


: ; AUTHOR: 
Jonathan M. Taylor, 30-Jul-77: Version 0 


; MODIFIED BY: 


MTHSDINT - Ff 
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T ; Detailed Current Edit History 
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-SBTTL HISTORY ; Detailed Lurrent Edit History 


dit History for Version 0 of MTHSDINT 


Remove MTHSFLAG_JACKET. TNH S-July-78 


Update version fumber and copyright n ut f 16-NOV-78 
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Add ‘’."' to the PSECT d a» Oe 
Add J B SINT RE point. af 
4 = Fix MTHSDINT_RS so that i ‘disables, jv. Add MTHSDINT_R4 
hee pa phe song: 6-Sept-1 
1-005 - Reseve MTH ait ye frm have converted to _R4. 
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-SBTTL DECLARATIONS 
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INCLUDE FILES: 
NONE 
EXTERNAL SYMBOLS: 
NONE 
MACROS: 
SPSLDEF ; PSL macros 


: PSECT DECLARATIONS: 


-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 


a 3) 


= FLOA 
| 


M 6 
NG TRUNCATION 1 iia tS DEB SEE AX/VMS Macro V04-00 Page 
MTHSD 4 11: 


TI 
NT Double to Double truncation -SEP-1 2:12 CMTHRTL.SRCIMTHDINT.MAR; 1 
-SBTTL MTHSDINT Double to Double truncation 


see 
‘ ; FUNCTIONAL DESCRIPTION: 


ot the argument with all zeroes to the right of the decimal 
point. 


CALLING SEQUENCE: 
Truncation.wd.v = MTHSDINT (arg.rd.r) 
INPUT PARAMETERS: 


The one arymnens is a double-precision floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
Reserved Operand exception can occur. 
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ENTRY MTHSOINT, “M<> 
EMODD a@4(AP), #0, #1, RO, RO ; RO/R1 
20> RO, @4(AP), RO ; RO/R1 
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Trace sen peretare 
integer_part(arg 
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MTHSDINT = FLOATING TRUNCATION 16-SEP-1984 01:17:35 VAX/VMS Macro v04-00 Pa 
pat MTHSDINT_R4 JSB entry point ~SEP-1984 11:22:13 EMTHRIL.SREIMTHDINT MAR; O° ¢8y 
: } ? -SBTTL MTHSDINT_R4 JSB entry point 
F 135 ;4¢ 
: ! § 3; FUNCTIONAL DESCRIPTION: 
Pah 8 3 Returns the argument with all zeroes to the right of the decimal 
, a 5 point. 
OOF 140 ; 
: 131 ; CALLING SEQUENCE: 
38 148 3 Truncation.wd.v = JSB MTHSDINT_R4 (arg.rd.v) 
SOF 145 ; INPUT PARAMETERS: 
Boor 128 3 
OOF 147; The one arpenens is a double-precision floating-point value 
OOF 148; and is call-by-reference. 
OOF 149; 
OOF 150 ; IMPLICIT INPUTS: 
OOOF 151; 
QOOF 13 3 NONE 
OOOF 153; 
QOOF 154 ; OUTPUT PARAMETERS: 
OOOF 155; , 
OOOF 128 3 NONE 
OOOF 157 ; 
OOOF 158 ; IMPLICIT OUTPUTS: 
OOOF 159; 
QOOOF 160 ; NONE 
OOOF 161; 
OOOF 196 3; COMPLETION CODES: 
OOOF 163; 
OOOF 164 ; NONE 
OOOF 165 ; 
OOOF 166 ; SIDE EFFECTS: 
QOOF 167 ; 
QOOOF 168 ; Reserved Operand exception can occur. 
OOOF 169 ; 
OOOF 170 ;-- 
OOOF 171 
OOOF He 
OOOF 173 MTHSDINT_R4:: ; RO/R1 = argunent 
54 DC OOOF 174 MOVPSL R4 ; Save the PSL 
¢8 9 0011 175 BICPSW #PSLSM_IV ; Disable IV 
52. 52 98 8 4 0013 176 EMOD RO, #0, #1, R2, R2 3 R2/R3 = fraction_part (arg) 
50 » % 63 0019 17 SUBD R ° ; RO/R1 = patoger art(arg) 
FEOF 8F AA 001D 178 ICW «= #°C<PSLSM_IV>, R4 : Clear all but PSL$V_IV bit 
54 SB B85 179 BISPSW R4 ; Restore IV if set 
05 0024 £180 $B ; Return to caller 
base 181 
0025 182 - END 
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Symbol table 
MTHSDINT 2090000" RG og 
MTHSDINT_RG QOOOOOOF RG 
PSLSM_IV = 00000020 

$eeawace 2 ewe me + 

: Psect synopsis ! 

peso mere san seo eay 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LC 
SABSS 00000000 <¢ 3° 01 ( 1.) NOPIC USR CON ABS LC 
_MTHSCODE 00000025 ( 37.) 02 ¢ 2.) PIC USR CON REL ULC 

¢oees encase See + 
H Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 5 00:00:00.09 00:00:00.96 
Command processing 135 00:00:00.47 00:00:02.37 
Pass 113 00:00:01.06 00:00:04.62 
Symbol table sort 0 00:00:00.03 00:00:00.05 
Pass 46 00:00:00.44 00:00:01.77 
Symbol table output $ 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.03 00:00:00.06 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 336 00:00:02.14 00:00:09.85 


The working set Limit was 900 pages. 

4031 bytes (8 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 41 non-local and 0 local symbol 
182 source Lines were read in Pass 1, produc tng 13 object records in Pass 2. 

8 pages of virtual memory were used to define / macros. 


+ 
! Macro Library statistics : 
fewoeeoeooesoeeecoeesooscos 


Macros defined 


Macro Library name 
-$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
98 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
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